
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tTipo_Puestos
# Region "tCargos"
	private mlistatCargos As New List (Of tCargos)
Public Property ListatCargos As System.Collections.Generic.List(Of tCargos)
Get
dim mtCargos As New tCargos
mlistatCargos =mtCargos.TraerFiltradoListOf("IdTipoPuesto",Me.IdTipoPuesto)
Return mlistatCargos
End Get
Set
RemoveAllListatCargos()
If Not (Value Is Nothing) Then
Dim otCargos As tCargos
	For Each otCargos in Value
		AddListatCargos(otCargos)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatCargos(newtCargos As tCargos)
	If (mlistatCargos Is Nothing) Then
		mlistatCargos = new System.Collections.Generic.List(Of tCargos)
	End If
	If Not mlistatCargos.Contains(newtCargos) Then
		mlistatCargos.Add(newtCargos)
		newtCargos.tTipo_Puestos = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatCargos(oldtCargos As tCargos)
	If (mlistatCargos.Contains(oldtCargos)) Then
		mlistatCargos.Remove(oldtCargos)
		oldtCargos.tTipo_Puestos = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatCargos()
	If Not (mlistatCargos Is Nothing)
		Dim tmp_listatCargos As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtCargos As tCargos
		For Each oldtCargos in mlistatCargos
			tmp_listatCargos.Add(oldtCargos)
		Next
	mlistatCargos.Clear()
	For Each oldtCargos in tmp_listatCargos
		oldtCargos = Nothing
	Next
	tmp_listatCargos.Clear()
	End If
End Sub

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tTipo_Puestos)
            Dim dtDatos As DataTable
            Dim listatTipo_Puestos As New List(Of tTipo_Puestos)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtTipo_Puestos As New tTipo_Puestos
				mtTipo_Puestos.IdTipoPuesto = CType(dr.Item("IdTipoPuesto"),Integer)
				mtTipo_Puestos.Traer_objeto()
            	listatTipo_Puestos.Add( mtTipo_Puestos)
    		Next dr
Return listatTipo_Puestos
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tTipo_Puestos)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatTipo_Puestos As New List(Of tTipo_Puestos)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtTipo_Puestos As New tTipo_Puestos
				mtTipo_Puestos.IdTipoPuesto = CType(dr.Item("IdTipoPuesto"),Integer)
				mtTipo_Puestos.Traer_objeto()
            	listatTipo_Puestos.Add( mtTipo_Puestos)
    		Next dr
Return listatTipo_Puestos
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tTipo_Puestos)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatTipo_Puestos As New List(Of tTipo_Puestos)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtTipo_Puestos As New tTipo_Puestos
				mtTipo_Puestos.IdTipoPuesto = CType(dr.Item("IdTipoPuesto"),Integer)
				mtTipo_Puestos.Traer_objeto()
            	listatTipo_Puestos.Add( mtTipo_Puestos)
    		Next dr
Return listatTipo_Puestos
End Function
# End Region

End Class
End Namespace
